home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / doscolor.arc / DOSCSTRT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-13  |  1.9 KB  |  34 lines
  1. 10  DEFINT A-Y
  2. 20  C$="IBM Internal Use Only"
  3. 30  DEF SEG=0:ZS=PEEK(&H43)*256+PEEK(&H42):ZO=PEEK(&H41)*256+PEEK(&H40):DEF SEG=ZS
  4. 40  IF PEEK(ZO+27)=44 AND PEEK(ZO+28)=40 AND PEEK(ZO+29)=45 AND PEEK(ZO+30)=41 THEN POKE ZO+10,0:POKE ZO+11,0:POKE ZO+12,7:POKE ZO+13,15:POKE ZO+14,112:OUT &H3D9,0
  5. 50  DEF SEG=&H40:STYP=(PEEK(&H10) AND &H30)\&H10:DEF SEG:IF STYP>1 THEN SWID=80:T1=19:T2=22:BLINE$=" " ELSE SWID=40:T1=0:T2=1:BLINE$=CHR$(13)
  6. 60  IF STYP>2 THEN PRINT:PRINT"DOSCOLOR requires a color monitor":SOUND 37,0:SOUND 240,6:FOR I=1 TO 5000:NEXT I:STOP
  7. 70  ' * * *  Set colors for initial display here  * * *
  8. 80  COLOR 15:WIDTH SWID
  9. 90  KEY OFF:CLS:SCREEN 0,0:C1=11:C2=15:C3=0:C4=0
  10. 100  COLOR 1,0:SCREEN 0,1:COLOR 1,0:PRINT SPC(SWID-1);" ";
  11. 110  PRINT SPC(T1) "<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>       <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>";SPC(T2);
  12. 120  PRINT SPC(T1) "<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>";SPC(T2);
  13. 130  PRINT SPC(T1) "  <0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> ";SPC(T2)
  14. 140  PRINT SPC(T1) "  <0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> ";SPC(T2);
  15. 150  PRINT SPC(T1) "  <0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!> ";SPC(T2);
  16. 160  PRINT SPC(T1) "  <0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!> ";SPC(T2);
  17. 170  PRINT SPC(T1) "<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!><0xDF!>";SPC(T2);
  18. 180  PRINT SPC(T1) "<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>";SPC(T2);
  19. 190  PRINT SPC(SWID-1);" ";:LOCATE ,,0:T1=T1+1:COLOR 7
  20. 200  BUL$=CHR$(201):BUR$=CHR$(187):BLL$=CHR$(200):BLR$=CHR$(188):BH$=CHR$(205): BV$=CHR$(186)
  21. 210  LOCATE 11,T1+11:PRINT"Personal Computer";
  22. 220  LOCATE 13,T1:PRINT BUL$;:FOR X=1 TO 37:PRINT BH$;:NEXT:PRINT BUR$;
  23. 230  LOCATE 14,T1:PRINT BV$;"              DOSCOLOR               ";BV$;
  24. 240  LOCATE 15,T1:PRINT BV$;"            Version 2.0              ";BV$;
  25. 250  LOCATE 16,T1:PRINT BLL$;:FOR X=1 TO 37:PRINT BH$;:NEXT:PRINT BLR$;
  26. 260  COLOR 7
  27. 270  LOCATE 18,T1+4:PRINT"IBM Internal Use Only";:PRINT
  28. 280  LOCATE 21,1:C1=11:C2=15:C3=0:C4=0
  29. 290  ON ERROR GOTO 310:PRINT" Loading main program...please wait.";:LOCATE CSRLIN,1
  30. 300  FOR K=1 TO 1000:NEXT K:CHAIN"DOSCSETC.BAS",20,ALL
  31. 310  IF ERR=71 THEN PRINT"Is the disk in the drive?":RESUME 330
  32. 320  PRINT"Make sure that the DOSCOLOR program" BLINE$ "diskette is in the default drive and try again.":PRINT"Press Enter when ready.";:LOCATE ,,1:WHILE INKEY$<>CHR$(13):WEND:LOCATE ,,0:RUN
  33. 330  PRINT"Put program diskette into drive" BLINE$ "and try again.":PRINT"Press Enter when ready.";:WHILE INKEY$<>CHR$(13):WEND:GOTO 290
  34.